Suzy B Software 2

home *** CD-ROM | disk | FTP | other *** search

/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_86 / fortune / fortune.bas (.txt) next >

Wrap

Atari STOS Basic | 1985-11-19 | 98KB | 549 lines

100 RESTORE 1000 REM 10000 REM 10001 RESET ZONE 10002 REM 10003 ON ERROR 10004 GOTO 10005 ANIM 10007 READ 10010 WAIT VBL 10020 NEXT 1005 IF 1010 SPRITE 1011 SPRITE 1012 SPRITE 1013 DEC 1014 IF 10500 DATA 10501 DATA 10502 DATA 10503 DATA 10505 DATA 10509 GOSUB 10550 GOSUB 10600 HIDE 10601 IF 10602 HIDE 10900 REM 10904 GOSUB 10905 GOSUB 10910 ANIM 10925 VARNAME 10930 IF 10932 IF 10935 IF 10936 IF 10937 CHANGE MOUSE 10940 VARNAME 11 KEY 110 RESTORE 11000 GOSUB 11001 VARNAME 11002 SPRITE 11003 SPRITE 11004 SPRITE 11005 SPRITE 11006 SPRITE 11010 VARNAME 11020 IF 11021 IF 11022 IF 11023 IF 11024 IF 11025 IF 11030 IF 11031 IF 11032 IF 11033 CHANGE MOUSE 11999 VARNAME 12 PALETTE 120 VARNAME 12000 IF 12001 IF 12002 IF 12003 IF 12004 IF 12005 IF 12009 RETURN 13 INK 130 GOSUB 13000 REM 13001 VARNAME 13002 SPRITE 13003 SPRITE 13004 ANIM 13005 VARNAME 13006 IF 13007 IF 13008 IF 131 GOTO 132 REM 134 IF 13499 GOTO 135 VARNAME 13500 VARNAME 13501 GOTO 13510 ANIM 14 SPRITE 14000 REM 14090 IF 14100 IF 14110 RETURN 14120 IF 14130 IF 14140 PEN 14150 PRINT 14500 REM 14505 IF 14510 CHANGE MOUSE 14511 VARNAME 14512 VARNAME 14513 IF 14515 IF 14516 IF 14599 GOTO 14600 IF 14601 LOCATE 14602 IF 14699 RETURN 14700 GOSUB 15000 REM 15010 VARNAME 15015 IF 15016 IF 15017 IF 15018 IF 15019 IF 15020 IF 15021 IF 15022 IF 15023 IF 15024 IF 15025 IF 15499 STOP 15500 REM 15510 VARNAME 159 RETURN 15999 STOP 16000 REM 16001 VARNAME 16005 VARNAME 16010 IF 16020 VARNAME 16021 VARNAME 16030 IF 16040 GOTO 1999 RETURN 200 VARNAME 2000 REM 20000 REM 20010 VARNAME 20011 VARNAME 20012 VARNAME 20013 VARNAME 20014 DATA 20015 DATA 20016 DATA 20017 DATA 20018 DATA 20019 DATA 20020 DATA 20021 DATA 20023 DATA 20024 RESTORE 20025 IF 20026 IF 20027 NEXT 20040 DATA 20041 DATA 20045 RESTORE 20046 IF 20047 IF 20048 NEXT 20049 IF 2005 IF 20050 FOR 20051 IF 20052 IF 20053 IF 20054 IF 20055 IF 20056 IF 20057 IF 20058 IF 20059 IF 20060 IF 20061 IF 20062 IF 20063 IF 20064 IF 20065 IF 20066 IF 20067 IF 20080 IF 20081 VARNAME 20098 REM 20099 IF 2010 SPRITE 20100 IF 20101 IF 20102 IF 20103 GOTO 20104 IF 20105 RETURN 2011 SPRITE 2012 SPRITE 2013 DEC 2014 IF 20199 IF 20200 IF 20202 IF 20995 IF 20996 IF 20997 IF 20998 IF 20999 RETURN 21 ON ERROR 21000 VARNAME 22000 IF 22001 GOSUB 22002 IF 22003 GOSUB 23000 REM 23010 VARNAME 23019 RETURN 24000 WAIT 25 VARNAME 25000 WAIT 2999 RETURN 3000 REM 30000 REM 30010 SPRITE 30020 DATA 30030 RESTORE 30031 VARNAME 30032 IF 30033 SPRITE 30040 NEXT 30045 IF 30049 RETURN 3005 IF 30050 DATA 30060 DATA 30070 DATA 30080 DATA 30090 DATA 3010 SPRITE 30100 DATA 3011 SPRITE 30110 DATA 3012 SPRITE 30120 DATA 3013 DEC 30130 DATA 3014 IF 30140 DATA 31999 STOP 32000 REM 32010 IF 32011 IF 32012 IF 32013 IF 32014 IF 32015 IF 32016 IF 32017 IF 32018 IF 32019 IF 32020 IF 32021 FOR 34999 STOP 35000 REM 35010 GOSUB 35014 FOR 35015 GOTO 35020 GOSUB 35024 FOR 35025 GOTO 35030 GOSUB 35034 FOR 35035 GOTO 35040 GOSUB 3999 RETURN 39999 STOP 40 DATA 4000 INC 40000 REM 4001 SPRITE 40010 DATA 40016 ANIM 4002 SPRITE 40020 VARNAME 4003 SPRITE 40030 SPRITE 40031 IF 40034 FOR 40035 FOR 40036 IF 40039 IF 4004 SPRITE 40040 NEXT 4005 SPRITE 40050 MUSIC 4006 SPRITE 4007 SPRITE 4008 SPRITE 4009 FOR 40100 IF 40105 VARNAME 40110 IF 40120 IF 44999 STOP 45000 REM 45005 GOSUB 45010 VARNAME 45015 SPRITE 45020 IF 45025 SPRITE 45030 VARNAME 45100 GOTO 45200 REM 45210 IF 45220 IF 45230 IF 45240 END 46000 HIDE 489 WAIT 48999 STOP 490 CLEAR KEY 49000 REM 49001 RESET ZONE 49002 SET ZONE 49003 SET ZONE 49004 SET ZONE 49005 SET ZONE 49006 SET ZONE 49007 SET ZONE 49008 SET ZONE 49009 SET ZONE 49010 SET ZONE 49011 SET ZONE 49012 SET ZONE 49013 SET ZONE 49014 RETURN 49015 VARNAME 49016 SET ZONE 49099 RETURN 499 REM 5 REM 500 FOR 50000 REM 50010 DATA 50011 DATA 50020 RESTORE 50030 VARNAME 5060 PEN 5061 IF 5062 GOTO 5070 REM 5080 HIDE 5081 SPRITE 5082 SPRITE 5085 PEN 5086 PRINT 5090 PRINT 510 FOR 5100 SHOOT 5109 RETURN 5110 HIDE 5111 SPRITE 5112 SPRITE 5113 PEN 5114 PRINT 5115 PRINT 5116 PEN 5119 NEXT 5120 REM 5130 ANIM 5140 IF 5150 GOTO 5160 REM 5170 ANIM 5180 REM 5190 ANIM 520 FOR 5200 IF 5201 IF 5210 REM 5220 ON ERROR 5230 FOR 5240 VARNAME 5250 IF 5260 IF 5265 IF 5270 NEXT 5280 GOSUB 5291 PUT SPRITE 5295 ANIM 530 VARNAME 5300 FOR 5310 NEXT 5320 REM 5330 VARNAME 5340 VARNAME 5350 PEN 5360 VARNAME 5370 IF 5380 IF 5390 IF 540 IF 5400 GOTO 541 RETURN 5410 PEN 5420 DEC 5430 PEN 5440 WAIT VBL 5450 INC 5460 PEN 5470 REM 5480 FOR 5490 VARNAME 5499 RETURN 6 REM Fruit Machine By T Mancey & K Hearson 1989 60 DATA 600 REM 6000 REM 60000 ANIM 60001 FOR 60005 NEXT 60010 NEXT 6010 ANIM 6020 STOP 605 SPRITE 609 CLW 610 VARNAME 620 VARNAME 630 VARNAME 640 VARNAME 650 VARNAME 670 SPRITE 680 CLEAR KEY 690 RETURN 7 REM 700 PEN 7000 REM 7020 GOSUB 7030 IF 7035 GOTO 7040 GOSUB 7050 IF 7055 GOTO 7060 GOSUB 7070 IF 7080 GOTO 710 DEF 720 VARNAME 730 LOCATE 740 FOR 80 DATA 8000 REM 8010 HIDE 8200 REM 8225 HIDE 8235 VARNAME 8240 IF 8245 IF 8250 IF 8255 IF 8260 IF 8265 IF 8270 IF 8275 END 8280 HIDE 8283 RETURN 8284 SPRITE 8285 SPRITE 8290 NEXT 8295 DATA 8300 VARNAME 8305 WAIT 8315 VARNAME 8320 SPRITE 8325 VARNAME 8334 VARNAME 8335 SPRITE 8336 VARNAME 8340 GOSUB 8345 VARNAME 8350 VARNAME 8355 VARNAME 8356 VARNAME 8365 SPRITE 8366 VARNAME 8370 GOTO 8375 VARNAME 8380 VARNAME 8385 VARNAME 8386 VARNAME 8395 SPRITE 8396 VARNAME 8400 GOTO 8405 VARNAME 8410 VARNAME 8415 VARNAME 8416 VARNAME 8425 SPRITE 8426 VARNAME 8430 GOTO 8435 VARNAME 8440 VARNAME 8445 VARNAME 8450 VARNAME 8455 SPRITE 8456 VARNAME 8460 GOTO 8465 VARNAME 8470 VARNAME 8475 VARNAME 8480 VARNAME 8485 SPRITE 8486 VARNAME 8490 GOTO 8495 VARNAME 8500 VARNAME 8505 VARNAME 8510 VARNAME 8515 SPRITE 8516 VARNAME 8520 GOTO 8525 VARNAME 8800 IF 8809 RETURN 90 RESTORE 9000 REM 9010 GOSUB 9020 GOSUB 9499 RETURN 9500 REM 9510 IF 9511 IF 9512 IF 9513 IF 9514 IF 9515 IF 9516 IF 9517 IF 9518 IF 9519 GOSUB 9600 IF 9601 IF 9602 IF 9603 IF 9604 IF 9605 IF 9606 IF 9607 IF 9608 IF 9609 RETURN